home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / 14 assemblies / testappdomain / class1.vb < prev    next >
Encoding:
Text File  |  2002-03-16  |  677 b   |  17 lines
  1. ' Include this class only if generating a test assembly
  2.  
  3. <Serializable()> _
  4. Public Class AppDomainData
  5.     Public ReadOnly ThreadID As Integer = AppDomain.GetCurrentThreadId
  6.     Public ReadOnly AppName As String = AppDomain.CurrentDomain.FriendlyName
  7.     Public ReadOnly ExeName As String = Reflection.Assembly.GetExecutingAssembly.FullName
  8. End Class
  9.  
  10. Public Class AppDomainData2
  11.     Inherits MarshalByRefObject
  12.  
  13.     Public ReadOnly ThreadID As Integer = AppDomain.GetCurrentThreadId
  14.     Public ReadOnly AppName As String = AppDomain.CurrentDomain.FriendlyName
  15.     Public ReadOnly ExeName As String = Reflection.Assembly.GetExecutingAssembly.FullName
  16. End Class
  17.